home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / EPICUREAN HELLO 1.1.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  30 lines
  1. 1  REM **************************
  2. 2  REM **  EPICUREAN HELLO 1.1 **
  3. 3  REM **     BY STEVE PISK    **
  4. 4  REM **  COPYRIGHT (C) 1982  **
  5. 5  REM **************************
  6. 6  REM 
  7. 7  TEXT : HOME 
  8. 10  VTAB 6: HTAB 14: SPEED= 50: PRINT "H I  T H E R E ! "
  9. 20  SPEED= 255: VTAB 8: HTAB 15: PRINT "APPLE II+ HERE": PRINT : FOR PAUSE = 1 TO 1000: NEXT PAUSE
  10. 30  PRINT : PRINT : HTAB 7: INVERSE : PRINT "BOY ... THAT DISK TASTED GOOD": FOR PAUSE = 1 TO 2500: NEXT PAUSE
  11. 40  NORMAL : VTAB 12: HTAB 3: SPEED= 50: PRINT "GEE ... I WONDER WHAT WAS IN IT ...?": FOR PAUSE = 1 TO 1000: NEXT PAUSE
  12. 50  SPEED= 255: VTAB 14: HTAB 16: INVERSE : PRINT "LET'S SEE!": NORMAL 
  13. 55  FOR G = 1 TO 3: PRINT  CHR$(7): NEXT G
  14. 60  FOR PAUSE = 1 TO 500: NEXT PAUSE:D$ =  CHR$(4): PRINT D$;"CATALOG"
  15. 65  FOR PAUSE = 1 TO 4000: NEXT PAUSE: PRINT : PRINT : INVERSE : HTAB 3: SPEED= 75: PRINT "BETTER CHECK ON ROOM FOR DESSERT!": NORMAL 
  16. 70  SPEED= 255: FOR PAUSE = 1 TO 800: NEXT PAUSE
  17. 80  GOSUB 100: FOR PAUSE = 1 TO 800: NEXT PAUSE: PRINT : PRINT D$;"CATALOG": END 
  18. 96  REM 
  19. 97  REM FREECAT WILL DISPLAY FREE SECTORS ON A DOS 3.3 DISK. ALSO WORKS ON 3.2 BUT DON'T <<<INIT>>> WITH IT.
  20. 98  REM  FROM NIBBLE MAGAZINE V.2/#5
  21. 99  REM 
  22. 100  IF  PEEK(977) + PEEK(978) -16 * INT( PEEK(978)/16) < >191 +13  THEN  PRINT : PRINT  CHR$(7)"INCORRECT DOS POINTERS": PRINT "PLEASE REBOOT AND RERUN FREECAT": END 
  23. 110 AD =  PEEK(978):A1 = 256 *AD +6579
  24. 120  FOR I = A1 TO A1 +69: READ B: POKE (I),B: NEXT I
  25. 130  DATA  162,7,32,74,249,134,65,160,140,185,242,179,240,10,10,144,251,232,208,250,230,65,208,246,136,208,238,165,65,172,6,224,240,5
  26. 140  DATA  32,27,229,48,3,32,36,237,160,243,185,249,181,32,237,253,200,208,247,76,47,174,0,160,198,210,197,197,160,211,197,195,212,207,210,211
  27. 150  POKE A1 +11,AD +22: POKE A1 +46,AD +24: POKE A1 +55,AD +17
  28. 155 T = 0: FOR I = A1 TO A1 +69:T = T + PEEK(I): NEXT I: IF T -3 *AD < >10412  THEN  PRINT : PRINT  CHR$(7)"DATA STATEMENT ERROR (LINES 130-150)": END 
  29. 160  POKE A1 -2287,179: POKE A1 -2286,AD +25
  30. 170  PRINT  CHR$(7): PRINT : PRINT "FREECAT IS INSTALLED": RETURN